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6-SE RTL.SRC ESC IBADDP. MAR; 1 (1) 
TITLE LJSSSA00P A? Adg two poked decimal numbers 
IDENT /1-002/ ; File: LIBADDP.MAR Edit: MDL 1002 


BARA RAARAAARARARARAALAAAALALALALELALALA LAL ELAS REESE REET EERE EERE EERE SESE E EES 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGIT TAL EQUIPHENT, CORPORATION, MAYNARD, MASSACHUSETTS. 


* * 
* % 
* # 
* RIG w 
ft * 
e SOF TWARE a FURNISHED UNDER A LICENSE AND MAY BE USED AND od bd * 
;@ IN ACCORDANCE &.TH THE TERMS OF SUCH LICENSE AND WITH THE * 
;@ USION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHE * 
;@ ES TH one MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
;* R PE NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
« TRANSFERRED. * 
st * 
;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
;* CORPORATION. * 
:* x 
ft x 
:* % 
tt W 
:® * 
st * 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR 7 eae OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL 
LRRRRASAAAASLAELELESESLESESESES ERE RE REE ESE ERE SESE LEE EES ESE SASESEE ESE CL OSE a 
S FACILITY: LANGUAGE INDEPENDENT SUPPORT 
ABSTRACT: ; 
This module contains the routine that adds two packed decimal 
numbers. 
VERSION: 1 
HISTORY: 


AUTHOR: 
Pamela L. Levesque, 3-Feb-1982 


MODIFIED BY: 
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IBSSADDP_R7 Add two packed decimal numbers 15=SEP=1984 23:46:24 VAX/VMS Macro v04-00 Pa 
1-002 HISTORY . Detailed Current Edit History aoe Ti 108388 LIBRTL.SRCILIBADDP.MAR; 1 - 3) 
44 4g -SBTTL HISTORY ; Detailed Current Edit History 
209 48 5+ 
+44 ro ; Edit History for Version 1 of LIBADDP 
$000 3 : 1-001 = Original. PLL 2-Feb-1982 
0000 26 ; 1-002 = return a status in RO. although the caller is responsible for 
0000 53 ; insuring we don't encounter reserved operand, we could get decimal 
44 2 3 overflow set. MDL 13-Jan-1984 
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ARATIONS 1:03:05 (3) | 


6-SEP-1984 
~SBTTL DECLARATIONS 


LIBRTL.SRCJLIBADDP.MAR; 1 


; INCLUDE FILES: 


; EXTERNAL SYMBOLS: 
-DSABL GBL ; Prevent undeclared symbols from 
3 being automatically globa 


; MACROS: 
: NONE 


; PSECT DECLARATIONS: 
-PSECT _LIBSCODE PIC, SHR, LONG, EXE, NOWRT, RD 


EQUATED SYMBOLS: 
NONE 


OWN STORAGE: 
NONE 


LIBSSADDP_R7 


88 
2 
92 ; 
38 
94: 
0 32 3 
$0 39 $ 
00 4 3 
$800 100; 
H098 1B) | 
8000 198 3 
44 104 ; 
000 105; 
0000 198 3 
0000 107 ; 
0000 108; 
0000 109; 
4464 110 ; 
000 111; 
0000 1 : 
0000 113; 
0000 114; 
0000 115; 
0000 116 3 
0000 117; 
0000 118; 
0000 119; 
0000 120; 
$333 18 
6009 1 4 3 
0000 124; 
0000 125; 
000 1 § 
000 1 
000 128 
4 129 
000 130 ; 
000 131; 
09 138 
, 2: 82 2. & 0 134 
oH OB BS 1 
05 iH 1 $ 1 
000B Cis 3 
000B «13 
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7}98e 4:68:88 LIBRTL.SRCILIBADDP.MAR; 1 a 


.SBTTL LIBSSADDP_R7 


p++ 
; FUNCTIONAL DESCRIPTION: 


Adds two packed decimal numbers. 

CALLING SEQUENCE: 
JSB LIBSSADDP_R7 (addlen.rl.v, addaddr.rp.r, sumlen.ml.v, sumaddr.mp.r) 
Arguments are passed in R4, R5, R6 and R7. 

FORMAL PARAMETERS: 


addlen.rl.v Length of addend 
addaddr.rp.r address of addend string 
sumlen.ml.v Length of 


sumaddr.mp.r address of sus string 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
FUNCTION VALUE: 
NONE 
SIDE EFFECTS: 
Destroys registers RO through R7. 


LIBSSADDP_R7:: 


he value 0 in RO. If overflow occurs, the V-bit in the PSL will be set. 


ADDP4 R4, (R5), Rb, (R7) 
BVS 10$ 3; overflow occured? 
neat #1,R0 3 no overflow, return success 


+ 
pee tere the requested addition. note that this instruction always leaves 


So 
tad 


- END 


4 
(4) | 
| 


! ; Performance indicators ! 


waanoeen nunanumesnenennt 


Phase Page faults CPU Time Elapsed Time 


Initialization 29° 0:00: 6.9 00: 00: 00.79 
Command processing 111 0:00:00. 0:00: Re Bf 
Pass 67 88: 0.2 00:00: +58 
syebol, table sort 0 0:00: 8-00 ee Sea 0 
Pas 39 8860.06 0:00:00.55 
Symbol table output § 00:00:00.00 00:00:00.00 
Psect synopsis output 00:00:00.02 Be TO bs “Os 
Cross-reference output 0 00:00:00.00 00:00:00.0 
Assembler run totals 252 00:00:00.81 00:00:05.68 


The working set Limit was 900 pages. 

1304 bytes (3 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space eb a to hoid 1 non-local and 1 local symbols. 
139 source Lines were read in Pass 1, produci bs object records in Pass 2. 

0 pages of virtual memory were used to define 0 macros. 


were nee oe eee eee eee He eee eee ee 


Macro Library name Macros defined 
“$255SDUAZB:(SYSLIBJSTARLET.MLB:2 0 ( itttstststSSS™S 0. 
O GETS were required to define 0 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESSION/DISABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:LIBADDP/OBJ=0BJ$:LIBADDP MSRC$:LIBADDP/UPDATE=(ENH$:LIBADDP) 


i: 
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$ L taBle 6-SEP- 1:0 LIBRTL.SRCILIBADDP.MAR; 1 
LIBSSADDP_R7 00000000 RG 01 

bewcwceccow ceases 

! ; _Psect synopsis 3 
PSECT name Allocation PSECT No. Attributes 

ABS 00000000 ( 0.) 00 ¢ OQ.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 

“L1BSCoDE 00000008 ¢« 11.) O1¢ 1.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 


PMENT CORPORATION | 
AND PROPRIETARY 
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